home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Technotools
/
Technotools (Chestnut CD-ROM)(1993).ISO
/
lang_c
/
crobots3
/
kamikaze.r
< prev
Wrap
Text File
|
1986-11-08
|
896b
|
31 lines
/* kamikaze.r */
/* chases down and runs into opponents, */
/* firing all the while */
main()
int angle, range;
int scan_start, scan_increment;
{
scan_start = 0;
scan_increment = 10;
while(1) { /* infinite loop */
angle = scan_start;
while ((range = scan(angle,scan_increment))==0) {
angle += 2 * scan_increment;
} /* end while */
if (range<=700){
cannon(angle,range); /* fire at enemy */
drive(angle,50); /* chase enemy */
}
else{
drive(angle,range); /* go get 'em */
}
scan_increment = 10;
scan_start = angle - 10;
} /* end while*/
} /* end main() */